home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / f / final_writer / finalwriter4ukenglish1.dms / in.adf / FWMacros.lha / TxtSize_Decr < prev    next >
Encoding:
Text File  |  1993-10-25  |  380 b   |  15 lines
  1. /* ================================================= */
  2. /* Bump current font's size down by 1 point.         */
  3. /* FinalWriter macro written by Ric Fischer - 7/7/93 */
  4. /* $VER: TxtSize_Decr 3.0 (22.7.93)                  */
  5. /* ================================================= */
  6.  
  7. Options Results
  8.  
  9. Status Fontsize
  10. Result = Result - 1
  11. IF (Result = 3) THEN
  12.    EXIT
  13.  
  14. FontSize Result
  15.